#lang racket

(provide dgensym)

(define gensym-counter 0)

(define (dgensym s)
  (set! gensym-counter (+ gensym-counter 1))
  (string->symbol (string-append (symbol->string s) (number->string gensym-counter))))
